home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / gpl2_114.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-05-31  |  3KB  |  101 lines
  1. /****************************************************************************
  2. **
  3. **  Installation-Programm für GPlan/2 V1.14S
  4. **
  5. **  310596
  6. **
  7. ****************************************************************************/
  8. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  9. call SysLoadFuncs
  10.  
  11. gpverz = ''
  12.  
  13. 'CLS'
  14. Say " ######################################################################"
  15. Say " ##  INSTALL.CMD                                                     ##"
  16. Say " ##    Aufruf: INSTALL [GPlan/2 Verzeichnis]                         ##"
  17. Say " ##    Beispiel: install c:\vga_plan\gplan2                          ##"
  18. Say " ##                                                                  ##"
  19. Say " ##  Diese Datei kopiert die GPlan/2 Shareware-Version 1.14S         ##"
  20. Say " ##  in das angegebene Verzeichnis.                                  ##"
  21. Say " ##                                                                  ##"
  22. Say " ##  Es wird ein Folder 'GPlan/2' auf der WPS angelegt, der die      ##"
  23. Say " ##  Programm-Objekte enthält.                                       ##"
  24. Say " ##                                                                  ##"
  25. Say " ######################################################################"
  26. Say " Wollen Sie jetzt das Programm installieren? (J/N) "
  27. Parse Upper Pull yesno .
  28. If Substr(yesno,1,1) <> 'J' Then Call Endit
  29.  
  30. If (Arg() <> 1) Then Call EndPara
  31. Parse arg gpverz;
  32.  
  33. 'del 'gpverz'\gplan2.*'
  34. 'md 'gpverz'\mess'
  35. 'unzip -o gpl2114.zip -d 'gpverz''
  36.  
  37. ObjMode = 'F' /* Fail */
  38.  
  39. Location = '<WP_DESKTOP>'
  40. Title = 'GPlan/2 V1.14S'
  41. Class = 'WPFolder'
  42. SetupString =  'NOPRINT=YES;'
  43. SetupString =  SetupString || 'OBJECTID=<GPLAN2V114S_FOLDER>;'
  44. Call MakeObj
  45.  
  46. ObjMode = 'R' /* Replace */
  47.  
  48. Location = '<GPLAN2V114S_FOLDER>'
  49. Title = 'GPlan/2 V1.14S'
  50. Class = 'WPProgram'
  51. SetupString = 'NOPRINT=YES;'
  52. SetupString =  SetupString || 'OBJECTID=<GP_PROGRAMM>;'
  53. SetupString =  SetupString || 'PROGTYPE=PM;'
  54. SetupString =  SetupString || 'EXENAME='||gpverz||'\GPLAN2.EXE;'
  55. SetupString =  SetupString || 'PARAMETERS='||gpverz||';'
  56. SetupString =  SetupString || 'STARTUPDIR='||gpverz||';'
  57. Call MakeObj
  58.  
  59. Location = '<GPLAN2V114S_FOLDER>'
  60. Title = 'GPlan/2^Konfiguration V1.14S'
  61. Class = 'WPProgram'
  62. SetupString = 'NOPRINT=YES;'
  63. SetupString =  SetupString || 'OBJECTID=<GP_KONFPROGRAMM>;'
  64. SetupString =  SetupString || 'PROGTYPE=PM;'
  65. SetupString =  SetupString || 'EXENAME='||gpverz||'\GP2KONF.EXE;'
  66. SetupString =  SetupString || 'PARAMETERS='||gpverz||';'
  67. SetupString =  SetupString || 'STARTUPDIR='||gpverz||';'
  68. Call MakeObj
  69.  
  70. Location = '<GPLAN2V114S_FOLDER>'
  71. Title = 'GPlan/2^Handbuch V1.14S'
  72. Class = 'WPProgram'
  73. SetupString = 'NOPRINT=YES;'
  74. SetupString =  SetupString || 'OBJECTID=<GP_HB>;'
  75. SetupString =  SetupString || 'PROGTYPE=PM;'
  76. SetupString =  SetupString || 'EXENAME=VIEW.EXE;'
  77. SetupString =  SetupString || 'PARAMETERS='||gpverz||'\GPLAN2.INF;'
  78. Call MakeObj
  79.  
  80.  
  81. EXIT 0
  82.  
  83. MakeObj:
  84.     Say Copies('─',75)
  85.     Say 'Erstelle 'Title' in 'location' als 'Class
  86.     rc = 0
  87.     rc = SysCreateObject(Class,Title,Location,SetupString,ObjMode)
  88.     if rc then do
  89.        Say 'SysCreateObject returned 'rc
  90.     end
  91.     return
  92.  
  93. EndPara:
  94.    SAY " "
  95.    SAY " Das Zielverzeichnis wurde nicht angegeben!"
  96.    SAY " ABBRUCH!"
  97.    EXIT 1
  98.  
  99. Endit:
  100.    EXIT 0
  101.